home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_UPDBRO.TXT < prev    next >
Encoding:
Text File  |  1992-12-22  |  1.3 KB  |  38 lines
  1. '
  2. 'Class description:
  3. '
  4. !short:UpDBrowse class structure:
  5. Class UpDBrowse:
  6. ~~~~~~~~~~~~~~~~
  7. Its the same as the class Browse, but can exist as only one active task.
  8. The atempt to background switching causes finishing of the task.
  9.  
  10.  
  11. Common use:
  12. ~~~~~~~~~~~
  13. LOCAL OBJECT Db OF UpDBrowse                //object creation
  14. NET USE Personal                            //database is opened
  15. Db:Init()                                   //object is initialised
  16. Db:AddBlock(,"Meno",,FieldBlock("Name"))    //ads field for editation
  17. Db:AddBlock(,"Plat",,FieldBlock("Salary"))  //ads field for editation
  18.  
  19. Db:Process()                                //editation
  20. Db:Done()                                   //task finishing
  21.  
  22. Source code is in C_UpDBro.prg
  23.  
  24. !seealso: c_dbrows.ngo:DBrowse c_abrows.ngo:ABrowse c_browse.ngo:Browse c_task.ngo:Task c_box.ngo:Box c_color.ngo:Color ob_class.ngo:"Class hierarchy"
  25.  
  26. !short:~~~~~~~~~~~~~~~~~~~~~~~~~~
  27. !short:create class UpDBrowse from DBrowse
  28. !short:  export:
  29. !short:  method New=UpDBrowseNew  //o:New() --> self
  30. ^BUpDBrowse:New()^N: public: return self
  31.   Object is filled with default values, predcessor variable modified:
  32.  
  33.   ^UUpDBrowse:UpFlag^N: override: public: logical
  34.     Default value of herited instvar variable is redefined on new value true.
  35.  
  36. !short:  endclass
  37.  
  38.